Проблема в том, что при удалении элементов ваш список становится короче, поэтому у вас закончатся элементы. Итак, просто удалите первую запись на каждом проходе:
Обновлено, чтобы отразить комментарии minitech
For teller = 0 To 169
ListBox1.Items.RemoveAt(0)
Next