Разбить цикл записи на отрезки по 1000 строк в каждый новый файл

Dim OffersStream As StreamWriter = New StreamWriter(fleName, False, System.Text.Encoding.UTF8)
Dim catalogueCSV As String = "kat" & TimeOfDay
Dim offersCSV As String = "off" & TimeOfDay
Dim extName As String = ".csv"
Dim folderCSV As String = "CSV\"
 
            OffersStream.WriteLine("IE_XML_ID;IE_NAME;IE_PREVIEW_TEXT;IE_DETAIL_TEXT;IP_PROP27;IP_PROP28;")
            For q = 0 To OffersGrid.Rows.Count - 2  '// q примерно равен 15-17 тысяч
                If q = 1000 Then
                    ' КАК быть тут? Нужно закрыть этот поток и открыть новый со следующим порядковым именем
                    OffersStream.Close()
                    fleName = "CSV\" & offersCSV & nextNameNum & extName
                    Dim OffersStream As StreamWriter = New StreamWriter(fleName, False, System.Text.Encoding.UTF8)
                    nextNameNum += 1
                    fleName = offersCSV & nextNameNum & extName
                    ReDim OffersStream(fleName, False, System.Text.Encoding.UTF8)
 
                End If
                KatStroke = clear_text(OffersGrid(0, q).Value) _
                    & ";" & clear_text(OffersGrid(1, q).Value) _
                    & ";" & clear_text(OffersGrid(2, q).Value) _
                   
               OffersStream.WriteLine(KatStroke)
               offersStroke = ""
 
            Next
            OffersStream.Close()
        End If

Circles = Math.Ceiling(OffersGrid.Rows.Count / CInt(CircleSize.Text)) 'CircleSize.Text=1000
            For w = 0 To Circles
                fleName = (folderCSV & offersCSV & w.ToString & extName)
                Dim OffersStream As New StreamWriter(fleName, False, System.Text.Encoding.UTF8)
                For q = 0 To 1000
                    If t = OffersGrid.Rows.Count - 1 Then
                        OffersStream.Close()
                        Exit For
                    End If
                    KatStroke = clear_text(OffersGrid(0, t).Value) _
                    & ";" & clear_text(OffersGrid(1, t).Value) _
                   ...
                    & ";" & clear_text(OffersGrid(4, t).Value) _
                    & ";" & "RUB"
 
                    OffersStream.WriteLine(KatStroke)
                    offersStroke = ""
 
                    t += 1
                Next
                ' MsgBox(fleName)
                OffersStream.Close()
            Next

''' <summary>
''' Запись в файл с разбивкой по количеству строк
''' </summary>
''' <param name="filename">Базовое имя файла</param>
''' <param name="n">Количество строк в каждом файле</param>
''' <remarks></remarks>
Sub WriteToFile(ByVal filename As String, ByVal n As Integer)
    Dim nameWithoutExt As String = filename.Substring(0, filename.LastIndexOf("."))
    Dim ext As String = filename.Substring(filename.LastIndexOf("."))
    Dim newFileName As String = filename
    Dim i As Integer = 0 'счётчик строк
    If (OffersGrid.RowCount > n) Then
        newFileName = String.Format("{0}_{1}{2}", nameWithoutExt, i + 1, ext)
    End If
    'Внешний цикл записи в файл, который формирует новый поток для записи
    While i < OffersGrid.RowCount
        Using sw As New StreamWriter(newFileName, False, System.Text.Encoding.UTF8)
            'Внутренний цикл записи, который прерывается по заданному числу строк
            While i < OffersGrid.RowCount
                'пишем в файл заданное кол-во строк
                sw.WriteLine("строка для записи")
                'На индексе кратном i выход из цикла
                If (i <> 0 AndAlso i Mod (n - 1) = 0) Then
                    Exit While
                End If
                i += 1
            End While
        End Using
        i += 1
        'Меняем счётчик у имени файла
        newFileName = String.Format("{0}_{1}{2}", nameWithoutExt, i \ n + 1, ext)
    End While
End Sub