How To Replace For Next Loop With Timer

In the code below I want to replace the big for next loop with a timer but this timer needs to be inside the small next loop.
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim s As String = My.Computer.FileSystem.ReadAllText(dname)
Dim c() As Char = {vbCrLf}
Dim sa() As String = s.Split(c, StringSplitOptions.None)
For Each s1 As String In sa
[Code] .....

I have tried to replace it with a timer but cant get it to work rightwhat this dose is sends a line of text to a notepad one line at a time with a pause in between each line that is sent to the notepad, now the big number "Num" is what gives me the passing right now but with those big numbers it slows my app down.