property TheVoices : {"Alex", "Fred", "Bruce"}
on run
tell application "VoiceOver Utility"
activate
tell application "System Events" to tell process "VoiceOver Utility"
tell window "VoiceOver Utility"
select row 3 of table 1 of scroll area 1
select radio button "Voices" of tab group 1 of group 1
click pop up button 1 of tab group 1 of group 1
set TempVoice to get value of pop up button 1 of tab group 1 of group 1
set theFlag to false
repeat with x from 1 to (count of TheVoices) - 1
if item x of TheVoices = TempVoice then
set theVoice to item (x + 1) of TheVoices
set theFlag to true
exit repeat
end if
end repeat
if not theFlag then set theVoice to item 1 of TheVoices
click menu item theVoice of menu 1 of pop up button 1 of tab group 1 of group 1
click button 1
say theVoice
end tell
end tell
end tell
end run