Separate it:

Code:
Do While Not rsP.EOF 
  sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    rsP.MoveNext
    If rsP.RecordCount Mod 5 Then ' every 5th time only
       sLT = sLT & "..."
    End If
Loop