Всем спасибо за отклик!
Вопрос решился (как всегда просто и изящно) добавлением следующей строки:
НовыйНомерСтрокиНН = НовыйНомерСтрокиНН + 1;
в эту часть:
...
Для каждого НайденнаяСтрока Из МассивСтрокНомерСтрокиНН Цикл
ЭтотОбъект[НайденнаяСтрока.ИмяТЧ][НайденнаяСтрока.НомерСтрокиТЧ-1].НомерСтрокиНН = НовыйНомерСтрокиНН;
КонецЦикла;
...
что в конечном итоге приняло вид:
...
Для каждого НайденнаяСтрока Из МассивСтрокНомерСтрокиНН Цикл
ЭтотОбъект[НайденнаяСтрока.ИмяТЧ][НайденнаяСтрока.НомерСтрокиТЧ-1].НомерСтрокиНН = НовыйНомерСтрокиНН;
НовыйНомерСтрокиНН = НовыйНомерСтрокиНН + 1;
КонецЦикла;
...
Ещё раз спасибо всем за помощь!