In[]:=
ws=ResourceFunction["WordSyllables"];poem="Over the wintry\nForest, winds howl in rage\nWith no leaves to blow.";Until[Length[ws[adj]]==2,adj=RandomWord["Adjective"]];Until[Length[ws[noun]]==1,noun=RandomWord["Noun"]];Until[Length[ws[verb]]==1,verb=RandomWord["Verb"]];newPoem=StringReplace[poem,{"wintry"->adj,"rage"->noun,"blow"->verb}]
Out[]=
Over the tonsuredForest, winds howl in crepeWith no leaves to hasp.