Prova con:
codice:
textBox.SelectionStart=textBox.Text.Length         
textBox1.ScrollToCaret
oppure con:
codice:
Me.TextBox1.Text &= "Riga di test " & index & ControlChars.NewLine

Me.TextBox1.AppendText("Riga di test " & index & ControlChars.NewLine)