Не могу освободить память от созданного объекта.

В данном случае достаточно просто

Sub FormMacro_Test(TCSActiveModule)
  LogObject.ScriptTimeOut = 0
  For i = 1 to 100
    Set TP = TCSActiveModule.Properties("NmkTechnology").AsIDispatch 'Перейдём на техпроцесс
  Next
   Call TCSApp.ShowMessageBox("", "END")
Call TCSApp.HideProgressMessage
Exit Sub

Освобождение пройдет само. Заморочки с  DeleteModuleByUserModuleName обычно нужны когда создается объект первого уровня от TCSApp, либо нужна вывести какой либо модуль в глобальную область.

Это не показатель конечно, но поизучаем, скорей всего в модуле ТП где-то утечки.

Не совсем так. Вообще-то присваивание Nothing совершенно излишне, среда это сама делает за вас.  Вам нужно его присваивать только тогда, когда сами хотите убрать все ссылки (но и то по факту это не  гарантируется, так как решает это интерпретатор VBScript) .

Метод  DeleteModuleByUserModuleName появился из-за того, что мы сделали часть объектов (обычно это первый уровень от TCSApp) глобальными, и после первого обращения к ним они не уничтожаются, а остаются в памяти. Это порой сильно упрощает написание кода. Однако пользователи стали этим злоупотреблять, производя кучу глобальных объектов типа Single... (порой совершенно излишне). Поэтому пришлось добавить такой метод, чтобы дать возможность удалять такие объекты.  Менять поведение нельзя, так как отвалятся ранее написанные программы.

По мимо этого присваивание UserModuleName дает вам возможность сделать локальный объект доступным глобально, то есть он не уничтожится вместе с переменной а будет доступен из TCSApp.ModuleByUserModuleName. (что в вашем примере и происходит)

К сожалению ранее присваивание UserModuleName позволялось любому объекту, даже если он не мог быть глобальным ни при каких обстоятельствах. В 6.3 мы исправили это и теперь при присвоении уникального имени модулю, который не может быть глобальным появится окно с информацией об ошибке. Если не ошибаюсь ее можно проигнорировать и программу будет работать дальше, но лучше это исправить.

Начиная с 6.3 любой глобальный модуль вы можете сделать обычным вот таким вызовом (пример)

Set M = TCSApp.Mesuriment
M.UserModuleName = M.UniqueUserModuleName
TCSApp.DeleteModuleByUserModuleName( M.UserModuleName )
i = M.ShowModal( "test" )

после уничтожения переменной M связанный с ней модуль так же уничтожится (до версии 6.3 модуль уничтожался сразу после вызова DeleteModuleByUserModuleName).

и все.

При работе со свойствами (то что у вас приведено в примере) или зависимыми объектами и прочими производными интерфейсами работа с  UserModuleName и DeleteModuleByUserModuleName совершенно не нужна и может только создать лишние проблемы (читай про создание своих глобальных объектов).

Да это произойдет в итоге

А вот тут не должно быть. Мы и больше создаем. Хотя в даннмо случае даже он не нужен на самом деле (ибо все скорее всего есть в модуле где вы создаеет документ).
Но. если код небольшой- кидайте, посмотрим.

Ну расход памяти тут определить сложно, но данный привмер не должен падать с ошибкой.
Ну а c точки зрения оптимизации скорей всего можно так

dim doc, i, inv
set inv = TCSApp.Inventory.CalculateDocuments
inv.BeginUpdate
for i = 1 to 2000
CreateCalculateDocument = inv.AddCalculateDocument(...)
if CreateCalculateDocument <> -1 then inv.ActionList.ActionByName("AcceptAction").Execute
next
inv.EndUpdate