Se me ocurre un script cómo este:
Código:
<%
Cadena = "la siguiente es un palabra larga: AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
' Cantidad de caracteres permitidos
Largo = 25
' Separador utilizado
Separador = "_ "
arrCadena = Split(Cadena, " ")
For i = 0 to UBound(arrCadena)
If Len(arrCadena(i)) > Largo Then
Veces = (Len(arrCadena(i)) \ Largo) + 1
For j = 1 To Veces
Tmp = Mid(arrCadena(i),(j*Largo) - (Largo - 1), Largo)
Tmp2 = Tmp2 & Tmp & Separador
Next
Tmp2 = Left(Tmp2, Len(Tmp2) - Len(Separador))
arrCadena(i) = Tmp2
End if
Next
Response.Write Join(arrCadena)
%>
Para cambiar el largo de las palabras que querés cortar, modificás la variable "Largo". Lo mismo para cambiar el separador de palabras largas (variable "Separador")