Как это сделать?

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
   ...
   НовыйЛотВТЧ = Объект.Лоты.Добавить();
   НовыйЛотВТЧ.Лот = НовыйЛотВСпр.Ссылка;
КонецПроцедуры

Не прокатывает, хотя если в первый раз сделать отказ, то на форме новая запись появляется и со второго раза записывается

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
   ...
   НовыйЛотВТЧ = Объект.Лоты.Добавить();
   НовыйЛотВТЧ.Лот = НовыйЛотВСпр.Ссылка;
   Если Объект.ЗаписываемПервыйРаз Тогда
       Отказ = Истина ;
       Объект.ЗаписываемПервыйРаз = Ложь;
   КонецЕсли;
КонецПроцедуры

Используй ТекущийОбъект, а еще лучше в модуле объекта.