text := "«Яндекс» - российская транснациональная компания, владеющая одноимённой системой поиска в Сети, интернет-порталами и службами в нескольких странах. Наиболее заметное положение занимает на рынках России, Турции, Белоруссии и Казахстана."

Func(text, arg) {
	str := StrSplit(text, A_Space)
	rtext := ""
	ttext := ""
	
	While (str.MaxIndex() != "") {
		if (strlen(str[1]) = arg) {
			rtext .= "" . str[1] . "`n"
			str.Remove(1)
		} else if (strlen(str[1]) < arg) {
			ttext := str[1]
			str.Remove(1)
			Loop {
				var := strlen(ttext) + strlen(str[1]) + 1
				if (var = arg) {
					rtext .= "" . ttext . " " . str1 . "`n"
					str.Remove(1)
					ttext := ""
					break
				} else if (var < arg) {
					ttext .= " " . str[1] . ""
					str.Remove(1)
					continue
				} else {
					rtext .= "" . ttext . "`n"
					ttext := ""
					break
				}
			}
		} else {
			return, false
		}
	}
	return, %rtext%
}

text := func(text, 30)
str := strsplit(text, "`n")

Loop, % str.MaxIndex() {
    send % str[A_Index] "`n"
}

text := "123`n123`n123"
str := strsplit(text, "`n")

Loop, % str.MaxIndex() {
    send % str[A_Index]
}

Text := "«Яндекс» - российская транснациональная компания, владеющая одноимённой системой поиска в Сети, интернет-порталами и службами в нескольких странах. Наиболее заметное положение занимает на рынках России, Турции, Белоруссии и Казахстана.

text := "«Яндекс» - российская транснациональная компания, владеющая одноимённой системой поиска в Сети, интернет-порталами и службами в нескольких странах. Наиболее заметное положение занимает на рынках России, Турции, Белоруссии и Казахстана."

Func(text, arg) {
	str := StrSplit(text, A_Space)
	rtext := ""
	ttext := ""
	
	While (str.MaxIndex() != "") {
		if (strlen(str[1]) = arg) {
			rtext .= "" . str[1] . "`n"
			str.Remove(1)
		} else if (strlen(str[1]) < arg) {
			ttext := str[1]
			str.Remove(1)
			Loop {
				var := strlen(ttext) + strlen(str[1]) + 1
				if (var = arg) {
					rtext .= "" . ttext . " " . str1 . "`n"
					str.Remove(1)
					ttext := ""
					break
				} else if (var < arg) {
					ttext .= " " . str[1] . ""
					str.Remove(1)
					continue
				} else {
					rtext .= "" . ttext . "`n"
					ttext := ""
					break
				}
			}
		} else {
			return, false
		}
	}
	return, %rtext%
}

msgbox, % func(text, 30)

text := "«Яндекс» - российская транснациональная компания, владеющая одноимённой системой поиска в Сети, интернет-порталами и службами в нескольких странах. Наиболее заметное положение занимает на рынках России, Турции, Белоруссии и Казахстана."
Fun(text, arg) {
	Loop %arg% {
		if (A_Index = arg) {
			StringReplace, text, text, %A_Space%, `n
			StringReplace, text, text, @#$$, %A_Space%, All
		} else {
			StringReplace, text, text, %A_Space%, @#$$
		}
	}
	return, % text
}

ffunc(text, arg) {
	
	arr2 := []
	wtext := ""
	rtext := ""
	ttext := ""
	ns := 0
	
	StringReplace, wtext, text, %A_Space%, ©, All
	Loop, parse, wtext,, 
	{
		arr2[A_Index] := A_LoopField
	}
	While (arr2.MaxIndex() != "") {
		if (arr2[arg] = "©") {
			Loop %arg% {
				if (A_Index = arg) {
					rtext .= "`n"
					break
				}
				rtext .= arr2[A_Index]
			}
			arr2.Remove(1, arg)
		} else {
			Loop %arg% {
				ttext .= arr2[A_Index]
			}
			
			Loop, parse, ttext,,
			{
				if (A_LoopField = "©") {
					ns := A_Index
				}
			}
				
			Loop %ns% {
				if (A_Index = ns) {
					rtext .= "`n"
					break
				}
				rtext .= arr2[A_Index]
			}
			ttext := ""
			arr2.Remove(1, ns)
		}
	}
	StringReplace, rtext, rtext, ©, %A_Space%, all
	return, %rtext%
}

msgbox, % ffunc(text, 30)

String := "«Яндекс» — российская транснациональная компания, владеющая одноимённой системой поиска в Сети, интернет-порталами и службами в нескольких странах. Наиболее заметное положение занимает на рынках России, Турции, Белоруссии и Казахстана.", Start := 1, Length := 30

loop
{
   if ((NewString := SubStr(String, Start, Length)) = "")
      break
   Send % NewString "{Enter}"
   Start+=Length
}
msgbox done

text := "Устав министерства обязан соблюдать каждый сотрудник"

Fun(text, arg) {
	Loop %arg% {
		if (A_Index = arg) {
			StringReplace, text, text, %A_Space%, `n
			StringReplace, text, text, @#$$, %A_Space%, All
		} else {
			StringReplace, text, text, %A_Space%, @#$$
		}
	}
	return, % text
}

msgbox, % fun(text, 3) ; 3 - номер слова, после которого начинается деление